How Many Bugs in a Box/How Many Bugs in a Box.cdr/bugs/act7/00021.ls

Text File | 1995-03-28 | 582 b | 26 lines

on exitFrame
  global sndopen, mybugsound, animtimer, captivechannel, grabcur, reachcur
  cursor([grabcur, grabcur + 1])
  repeat while the mouseDown
    if the timer > animtimer then
      animateall()
      set animtimer to the timer + 3
    end if
    if the timer > 60 then
      addbug()
      startTimer()
      set animtimer to 5
    end if
    updateStage()
  end repeat
  sound stop 2
  releasebug()
  if captivechannel > 0 then
    if sprite captivechannel intersects 3 then
      InTheCagePal()
    end if
  end if
  go("gameloop")
  cursor([reachcur, reachcur + 1])
end